Sound Fx/Sound Fx.iso/Software/UNZIPED/DRUMMER/DRUMMER.EXE/0/RCDATA/TFRMMAIN/TFRMMAIN.txt

Text File | 1997-03-26 | 11KB | 428 lines

object frmMain: TfrmMain
  Left = 307
  Top = 125
  Width = 494
  Height = 486
  Caption = 'Drummer'
  Font.Color = clWindowText
  Font.Height = -10
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  Position = poDefault
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnPaint = FormPaint
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object ButtonBar: TPanel
    Left = 0
    Top = 0
    Width = 486
    Height = 49
    Align = alTop
    BevelInner = bvLowered
    BevelWidth = 3
    TabOrder = 0
    object lblDelay: TLabel
      Left = 176
      Top = 10
      Width = 153
      Height = 13
      AutoSize = False
    end
    object lblVolume: TLabel
      Left = 336
      Top = 10
      Width = 129
      Height = 13
      AutoSize = False
    end
    object btnPlaySong: TBitBtn
      Left = 13
      Top = 8
      Width = 72
      Height = 33
      Hint = 'Start/Stop Song Playback'
      Caption = 'Song'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = btnPlaySongClick
    end
    object btnPlayPattern: TBitBtn
      Left = 91
      Top = 8
      Width = 79
      Height = 33
      Hint = 'Start/Stop Pattern Playback'
      Caption = 'Pattern'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = btnPlayPatternClick
    end
    object ScrollTempo: TScrollBar
      Left = 176
      Top = 24
      Width = 153
      Height = 15
      Hint = 'Change Tempo of Pattern'
      LargeChange = 10
      Max = 250
      Min = 20
      ParentShowHint = False
      Position = 20
      ShowHint = True
      TabOrder = 2
      OnChange = ScrollTempoChange
    end
    object ScrollVolume: TScrollBar
      Left = 336
      Top = 24
      Width = 129
      Height = 15
      Hint = 'Change Volume of Playback'
      LargeChange = 10
      Max = 127
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnChange = ScrollVolumeChange
    end
  end
  object frameFiles: TGroupBox
    Left = 7
    Top = 117
    Width = 104
    Height = 144
    Caption = 'Files'
    TabOrder = 1
    object Drive1: TDriveComboBox
      Left = 7
      Top = 20
      Width = 91
      Height = 19
      DirList = Dir1
      TabOrder = 0
    end
    object Dir1: TDirectoryListBox
      Left = 7
      Top = 46
      Width = 91
      Height = 33
      ItemHeight = 16
      TabOrder = 1
      OnChange = Dir1Change
    end
    object filePattern: TFileListBox
      Left = 7
      Top = 91
      Width = 91
      Height = 20
      Hint = 'Click to Open, Drag to Song Builder to add to Song'
      DragMode = dmAutomatic
      ItemHeight = 13
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = filePatternClick
    end
    object fileSong: TFileListBox
      Left = 7
      Top = 117
      Width = 91
      Height = 20
      Hint = 'Click to Open'
      ItemHeight = 13
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = fileSongClick
    end
  end
  object framePattern: TGroupBox
    Left = 141
    Top = 62
    Width = 222
    Height = 144
    Caption = 'Pattern Builder -'
    TabOrder = 2
    object lblPatch: TLabel
      Left = 8
      Top = 120
      Width = 121
      Height = 17
      AutoSize = False
      Caption = 'Patch Name'
    end
    object lblPosition: TLabel
      Left = 152
      Top = 120
      Width = 49
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Position'
      Color = clBtnFace
      ParentColor = False
    end
    object pictPattern: TImage
      Left = 56
      Top = 64
      Width = 145
      Height = 49
      Hint = 'Right Click for Options'
      PopupMenu = PopupMenuPattern
      OnMouseMove = pictPatternMouseMove
      OnMouseUp = pictPatternMouseUp
    end
    object tabMeasure: TTabControl
      Left = 7
      Top = 20
      Width = 208
      Height = 26
      Hint = 'View the Measure'
      ParentShowHint = False
      ShowHint = True
      TabIndex = 0
      TabOrder = 0
      Tabs.Strings = (
        '1')
      TabWidth = 30
      OnMouseDown = tabMeasureMouseDown
    end
  end
  object frameSong: TGroupBox
    Left = 141
    Top = 233
    Width = 222
    Height = 78
    Caption = 'Song Builder -'
    TabOrder = 3
    object lstSongPatterns: TListBox
      Left = 7
      Top = 20
      Width = 202
      Height = 46
      Hint = 'Right Click for Options'
      ItemHeight = 13
      ParentShowHint = False
      PopupMenu = PopupMenuSong
      ShowHint = True
      TabOrder = 0
      OnDragDrop = lstSongPatternsDragDrop
      OnDragOver = lstSongPatternsDragOver
      OnKeyDown = lstSongPatternsKeyDown
      OnMouseDown = lstSongPatternsMouseDown
      OnMouseUp = lstSongPatternsMouseUp
    end
  end
  object btnPlay: TBitBtn
    Left = 13
    Top = 280
    Width = 27
    Height = 26
    TabOrder = 4
    Visible = False
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000000000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      FFFFFF8FFFFFFFFFFFFFF0088FFFFFFFFFFFF0A0088FFFFFFFFFF0AAA0088FFF
      FFFFF0AAAAA0088FFFFFF0AAAAAAA0088FFFF0AAAAAAAAA0088FF0AAAAAAAAAA
      A00FF0AAAAAAAAA00FFFF0AAAAAAA00FFFFFF0AAAAA00FFFFFFFF0AAA00FFFFF
      FFFFF0A00FFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
  end
  object btnStop: TBitBtn
    Left = 46
    Top = 280
    Width = 26
    Height = 26
    TabOrder = 5
    Visible = False
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000000000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      FFFFFF888888888888FFFF0000000000088FF09999999999908FF09999999999
      908FF09999999999908FF09999999999908FF09999999999908FF09999999999
      908FF09999999999908FF09999999999908FF09999999999908FF09999999999
      908FF09999999999908FFF00000000000FFFFFFFFFFFFFFFFFFF}
  end
  object MainMenu1: TMainMenu
    Left = 16
    Top = 96
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object Exit1: TMenuItem
        Caption = 'E&xit'
        ShortCut = 32883
        OnClick = Exit1Click
      end
    end
    object Options1: TMenuItem
      Caption = '&Options'
      ShortCut = 0
      OnClick = Options1Click
    end
    object Help1: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object Contents1: TMenuItem
        Caption = '&Contents'
        ShortCut = 0
        OnClick = Contents1Click
      end
      object Search1: TMenuItem
        Caption = '&Search'
        ShortCut = 0
        OnClick = Search1Click
      end
      object N5: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object About2: TMenuItem
        Caption = '&About'
        ShortCut = 0
        OnClick = About2Click
      end
    end
  end
  object PopupMenuSong: TPopupMenu
    OnPopup = PopupMenuSongPopup
    Left = 56
    Top = 96
    object IncreaseRepetitions1: TMenuItem
      Caption = 'Increase Repetitions'
      ShortCut = 0
      OnClick = IncreaseRepetitions1Click
    end
    object DecreaseRepetitions1: TMenuItem
      Caption = 'Decrease Repetitions'
      ShortCut = 0
      OnClick = DecreaseRepetitions1Click
    end
    object SetNumberofRepetitions1: TMenuItem
      Caption = 'Set Number of Repetitions...'
      ShortCut = 0
      OnClick = SetNumberofRepetitions1Click
    end
    object N2: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object ShiftPatternUp1: TMenuItem
      Caption = 'Shift Pattern Up'
      ShortCut = 0
      OnClick = ShiftPatternUp1Click
    end
    object ShiftPatternDown1: TMenuItem
      Caption = 'Shift Pattern Down'
      ShortCut = 0
      OnClick = ShiftPatternDown1Click
    end
    object RemovePattern1: TMenuItem
      Caption = 'Remove Pattern'
      ShortCut = 0
      OnClick = RemovePattern1Click
    end
    object N3: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object ClearSong1: TMenuItem
      Caption = 'Clear this Song'
      ShortCut = 0
      OnClick = ClearSong1Click
    end
    object BeginNewSong1: TMenuItem
      Caption = 'Begin New Song'
      ShortCut = 0
      OnClick = BeginNewSong1Click
    end
    object SaveSong1: TMenuItem
      Caption = 'Save Song'
      ShortCut = 0
      OnClick = SaveSong1Click
    end
    object SaveSongAs1: TMenuItem
      Caption = 'Save Song As...'
      ShortCut = 0
      OnClick = SaveSongAs1Click
    end
    object ExportSongtoMIDI1: TMenuItem
      Caption = 'Export Song to MIDI...'
      ShortCut = 0
      OnClick = ExportSongtoMIDI1Click
    end
  end
  object PopupMenuPattern: TPopupMenu
    OnPopup = PopupMenuPatternPopup
    Left = 96
    Top = 96
    object AddMeasure1: TMenuItem
      Caption = 'Add Measure'
      ShortCut = 0
      OnClick = AddMeasure1Click
    end
    object RemoveCurrentMeasure1: TMenuItem
      Caption = 'Remove Current Measure'
      ShortCut = 0
      OnClick = RemoveCurrentMeasure1Click
    end
    object ClearCurrentMeasure1: TMenuItem
      Caption = 'Clear Current Measure'
      ShortCut = 0
      OnClick = ClearCurrentMeasure1Click
    end
    object ClearAllMeasures1: TMenuItem
      Caption = 'Clear All Measures'
      ShortCut = 0
      OnClick = ClearAllMeasures1Click
    end
    object N4: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object ClearPattern1: TMenuItem
      Caption = 'Clear this Pattern'
      ShortCut = 0
      OnClick = ClearPattern1Click
    end
    object BeginNewPattern1: TMenuItem
      Caption = 'Begin New Pattern'
      ShortCut = 0
      OnClick = BeginNewPattern1Click
    end
    object SavePattern1: TMenuItem
      Caption = 'Save Pattern'
      ShortCut = 0
      OnClick = SavePattern1Click
    end
    object SavePatternAs1: TMenuItem
      Caption = 'Save Pattern As...'
      ShortCut = 0
      OnClick = SavePatternAs1Click
    end
    object ExportPatterntoMIDI1: TMenuItem
      Caption = 'Export Pattern to MIDI...'
      ShortCut = 0
      OnClick = ExportPatterntoMIDI1Click
    end
  end
  object SaveDialog1: TSaveDialog
    FileEditStyle = fsEdit
    Left = 16
    Top = 64
  end
end